home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / dosutils / cutpak11.zip / TPHELP.BAT < prev    next >
DOS Batch File  |  1996-09-26  |  4KB  |  134 lines
  1. @echo off
  2. cls
  3. echo.
  4. echo Sample application of Timed Pause (TPAUSE.COM)
  5. echo.
  6.  
  7. REM Example of "any key" with time-out (does not return an errorlevel):
  8. REM (Using default timeout of 1 minute)
  9.  
  10. tpause Press any key to proceed...
  11.  
  12. echo.
  13.  
  14. REM Example of "multiple choice", using SET to remember errorlevel
  15. REM Waiting only 10 seconds for a response
  16. REM (must test keys in ASCENDING order):
  17.  
  18. :choose
  19. echo.
  20. tpause /t:10 Press a key:,abcdefghijklmnopqrstuvwxyz1234567890-=\'"+_!@#$%%^&*()[]{}?:./`~
  21. echo.
  22. set el=0
  23. if errorlevel 1 set el=1
  24. if errorlevel 2 set el=2
  25. if errorlevel 3 set el=3
  26. if errorlevel 4 set el=4
  27. if errorlevel 5 set el=5
  28. if errorlevel 6 set el=6
  29. if errorlevel 7 set el=7
  30. if errorlevel 8 set el=8
  31. if errorlevel 9 set el=9
  32. if errorlevel 10 set el=10
  33. if errorlevel 11 set el=11
  34. if errorlevel 12 set el=12
  35. if errorlevel 13 set el=13
  36. if errorlevel 14 set el=14
  37. if errorlevel 15 set el=15
  38. if errorlevel 16 set el=16
  39. if errorlevel 17 set el=17
  40. if errorlevel 18 set el=18
  41. if errorlevel 19 set el=19
  42. if errorlevel 20 set el=20
  43. if errorlevel 21 set el=21
  44. if errorlevel 22 set el=22
  45. if errorlevel 23 set el=23
  46. if errorlevel 24 set el=24
  47. if errorlevel 25 set el=25
  48. if errorlevel 26 set el=26
  49. if errorlevel 27 set el=27
  50. if errorlevel 28 set el=28
  51. if errorlevel 29 set el=29
  52. if errorlevel 30 set el=30
  53. if errorlevel 31 set el=31
  54. if errorlevel 32 set el=32
  55. if errorlevel 33 set el=33
  56. if errorlevel 34 set el=34
  57. if errorlevel 35 set el=35
  58. if errorlevel 36 set el=36
  59. if errorlevel 37 set el=37
  60. if errorlevel 38 set el=38
  61. if errorlevel 39 set el=39
  62. if errorlevel 40 set el=40
  63. if errorlevel 41 set el=41
  64. if errorlevel 42 set el=42
  65. if errorlevel 43 set el=43
  66. if errorlevel 44 set el=44
  67. if errorlevel 45 set el=45
  68. if errorlevel 46 set el=46
  69. if errorlevel 47 set el=47
  70. if errorlevel 48 set el=48
  71. if errorlevel 49 set el=49
  72. if errorlevel 50 set el=50
  73. if errorlevel 51 set el=51
  74. if errorlevel 52 set el=52
  75. if errorlevel 53 set el=53
  76. if errorlevel 54 set el=54
  77. if errorlevel 55 set el=55
  78. if errorlevel 56 set el=56
  79. if errorlevel 57 set el=57
  80. if errorlevel 58 set el=58
  81. if errorlevel 59 set el=59
  82. if errorlevel 60 set el=60
  83. if errorlevel 61 set el=61
  84. if errorlevel 62 set el=62
  85. if errorlevel 63 set el=63
  86. if %el%.==0. goto none
  87. echo You pressed key number %el% in the demonstration series.
  88. echo.
  89. tpause Try another? (Y/N),yn
  90. if errorlevel 2 goto mult
  91. goto choose
  92. :none
  93. echo No key was pressed within 10 seconds.
  94.  
  95. REM Example of "multiple choice" without using SET
  96. REM (must check for absence of higher errorlevel at all but highest level):
  97.  
  98. :mult
  99. echo.
  100. echo You may choose one of the following:
  101. echo.
  102. echo N)ame of author       D)ate written         L)ength of time-out
  103. echo C)ommand syntax       M)aximum # of keys    S)elf-explanation
  104. echo.
  105. tpause "Enter your selection (N, D, L, C, M, or S):",ndlcms
  106. echo.
  107. if errorlevel 6 tpause /?
  108. if errorlevel 5 if not errorlevel 6 echo Up to 68 keys may be listed, returning errorlevels 1 through 68.
  109. if errorlevel 5 if not errorlevel 6 echo All printable keyboard characters are acceptable, with the exception of the
  110. if errorlevel 5 if not errorlevel 6 echo comma, semicolon, pipe (vertical bar), "greater than" and "less than".
  111. if errorlevel 5 if not errorlevel 6 echo Uppercase A through Z are considered identical to lowercase a through z.
  112. if errorlevel 5 if not errorlevel 6 echo If you use a percent sign, double it (DOS eats the first %%; it doesn't count).
  113. if errorlevel 4 if not errorlevel 5 echo TPAUSE "prompt"[,keylist]  (Quotes may be omitted when prompt has no commas.)
  114. if errorlevel 3 if not errorlevel 4 echo Default timeout = 1 minute; user-specifiable 1 second to 23 hr 59 min 59 sec.
  115. if errorlevel 2 if not errorlevel 3 echo TPAUSE.COM was originally developed on March 19, 1992 with a fixed 60-second
  116. if errorlevel 2 if not errorlevel 3 echo timeout, and was updated September 24, 1996 for user-specified time delay.
  117. if errorlevel 1 if not errorlevel 2 echo Developed by Clay Ruth (Clay.Ruth@WorldNet.ATT.net)
  118. if not errorlevel 1 echo Timed out; no information requested.
  119. echo.
  120.  
  121. REM Example of "multiple choice" using GOTO
  122. REM (must test in DESCENDING order):
  123.  
  124. tpause /t:20 Continue? (Y/N),yn
  125. echo.
  126. if errorlevel 2 goto quit
  127. if errorlevel 1 goto mult
  128. echo Quitting by default.
  129. goto end
  130. :quit
  131. echo Quitting at user request.
  132. :end
  133. echo.
  134.